SourceCode: "theView = av.GetActiveDoc\nif (System.IsShiftKeyDown) then\n op = #VTAB_SELTYPE_OR\nelse\n op = #VTAB_SELTYPE_NEW\nend\ntheGraphics = theView.GetGraphics.GetSelected\nl = {}\nfor each g in theGraphics\n l.Add(g.GetShape)\nend\nfor each t in theView.GetActiveThemes\n if (t.CanSelect) then\n t.SelectByShapes(l,op)\n end\nend\n"
)
(Script.13
Name: "View.UnionUpdate"
SourceCode: "theView = av.GetActiveDoc\ntheTheme = theView.GetEditableTheme\nenabled = FALSE\nif (theTheme <> nil) then\n SELF.SetLabel(\"U&nion Features\")\n SELF.SetHelpTopic(\"Union_Features\")\n SELF.SetHelp(\"Unions the selected features to create a new feature\")\n fCount = theTheme.GetFTab.GetSelection.Count\n theType = theTheme.GetFTab.FindField(\"Shape\").GetType\n enabled = ((fcount > 1) and ((theType = #FIELD_SHAPEPOLY) or\n (theType = #FIELD_SHAPELINE))) \n else\n SELF.SetLabel(\"U&nion Graphics\")\n SELF.
SetHelpTopic(\"Union_Graphics\")\n SELF.SetHelp(\"Unions the selected graphics to create a new graphic\")\n theGraphics = theView.GetGraphics.GetSelected\n gcount = theGraphics.Count\n if (gcount > 1) then\n dim2 = 0\n dim1 = 0\n dim0 = 0\n for each gra in theGraphics\n dim = gra.GetShape.GetDimension\n if ((gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\n if (dim = 2) then\n dim2 = dim2 + 1\n end\n if (dim = 1) then\n dim1 = dim1 + 1\n end\n
SourceCode: "theView = av.GetActiveDoc\naList = List.Make\nemptylist = true\nfor each t in theView.GetActiveThemes\n if (t.CanDeleteFromView) then\n aList.Add(t)\n emptylist = false\n end\nend\nif (emptylist) then\n return nil\nend\nav.GetProject.SetModified(true)\neditThm = theView.GetEditableTheme\nfor each t in aList\n if (t = editThm) then\n doSave = MsgBox.YesNoCancel(\"Save edits to \"+editThm.GetName+\n \"?\",\"Stop Editing\",true)\n if (doSave = nil) then\n return nil\n end\n if (editThm.StopEditing(doSave).N
ot) then\n MsgBox.Info(\"Unable to Save Edits to \" \n + editThm.GetName +\n \", please use the Save Edits As option\",\"\")\n return nil\n else \n theView.SetEditableTheme(NIL)\n end \n end \nend\ntheView.CutThemes"
)
(Script.17
Name: "View.NewTheme"
SourceCode: "theView = av.GetActiveDoc\n\n'If a theme in the view is being edited, Stop Editing it before creating new theme\neditThm = theView.GetEditableTheme\nif (editThm <> nil) then\n doSave = MsgBox.YesNoCancel(\"Save edits to \"+editThm.GetName+\"?\",\"Stop Editing\",true)\n if (doSave = nil) then\n return nil\n end\n if (editThm.StopEditing(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to \"\n + editThm.GetName +\n \", please use the Save Edits As option\", \"\")\n return nil\n
else\n theView.SetEditableTheme(NIL)\n end\nend \n\ntype = MsgBox.ChoiceAsString({\"Point\", \"Line\", \"Polygon\"}, \"Feature type:\", \"New Theme\")\n\nif (type = \"Point\") then\n class = Point\nelseif (type = \"Line\") then\n class = PolyLine\nelseif (type = \"Polygon\") then\n class = Polygon\nelse\n return nil\nend\n\ndef = av.GetProject.MakeFileName(\"theme\", \"shp\")\n\ndef = FileDialog.Put(def, \"*.shp\", \"New Theme\")\n\nif (def <> nil) then\n tbl = FTab.MakeNew(def, class)\n if (tbl.HasError) then\n if (tbl.HasLockError) t
SourceCode: "theTable = av.GetActiveDoc\ntheVTab = SummaryDialog.Show(theTable.GetVTab, theTable.GetActiveField)\nif (Nil = theVTab) then\n return nil\nend\n\n'the VTab contains a shape field if Merge was one of the operations\nif (theVTab.Is(FTab)) then\n 'make a list of views\n dl = {} \n for each d in av.GetProject.GetDocs\n if (d.Is(View)) then\n dl.Add(d)\n end\n end\n\n 'provide a choice for a new view\n dl.Add(\"<New View>\")\n theView = MsgBox.ListAsString(dl,\"Add Theme to:\", \"Summarize\")\n\n if (theView <> nil) t
hen\n if (theView = \"<New View>\") then\n theView = View.Make\n theView.GetWin.Open\n end\n\n 'create a theme and add it to the specified View\n fthm = FTheme.Make(theVTab)\n theView.AddTheme(fthm)\n 'display the table of attributes\n fthm.EditTable\n 'but make the view the active window\n theView.GetWin.Activate\n end\n\nelse\n 'no merge, so plain tabular summarization\n newTable = Table.Make(theVTab)\n newTable.SetName(theVTab.GetName)\n newTable.GetWin.Open\nend"
)
(Script.19
Name: "Table.SortUpdate"
SourceCode: "theTable = av.GetActiveDoc\nSELF.SetEnabled((theTable.GetActiveField <> NIL) and not (theTable.GetActiveField.IsTypeShape))\n"
SourceCode: "av.GetProject.SetModified(true)\ntheView = av.GetActiveDoc\ntheThemes = theView.GetActiveThemes\nr = Rect.MakeEmpty\nfor each t in theThemes\n r = r.UnionWith(t.ReturnExtent)\nend\n\nif (r.IsEmpty) then\n return nil\nelseif ( r.ReturnSize = (0@0) ) then\n theView.GetDisplay.PanTo(r.ReturnOrigin)\nelse\n theView.GetDisplay.SetExtent(r.Scale(1.1))\nend\n"
)
(Script.22
Name: "Project.Delete"
SourceCode: "theProject = av.GetProject\ntheDocs = theProject.GetSelectedDocs\nif (theDocs.IsEmpty) then\n return nil\nend\ndoc_names = \"\"\nall = false\nresult = false\nfor each d in theDocs\n if (NOT all) then\n result = MsgBox.AllYesNo( \"Are you sure you want to delete\"++d.GetName, \"Delete\", NIL )\n if (result = nil) then\n all = true\n elseif (result = false) then\n continue\n end\n end\n if(d.Is(View)) then\n editThm = d.GetEditableTheme\n if (editThm <> nil) then\n doSave = MsgBox.YesNoCancel(\"Sa
ve Edits to \"+editThm.GetName+\" in \"+\n d.GetName+\"?\", \"Stop Editing\", true)\n if (doSave = nil) then\n continue\n end\n if (editThm.StopEditing(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to Theme \"\n + editThm.GetName +\n \", please use the Save Edits As option\", \"\")\n continue\n else\n d.SetEditableTheme(NIL)\n end\n end \n end\n if (d.Is(Table)) then\n if (d.GetVTab.IsBeingEditedWithrecovery) then\n
doSave = MsgBox.YesNoCancel(\"Save Edits to the table \"+d.GetName+\n \"?\", \"Stop Editing\", True)\n if (doSave = nil) then\n continue\n end\n if (d.GetVtab.StopEditingWithRecovery(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to Table \" + d.GetName +\n \", please use the Save Edits As option\", \"\")\n continue\n end\n end \n end \n av.GetProject.RemoveDoc( d )\nend\n\nav.PurgeObjects"
)
(Script.23
Name: "Table.SaveEdits"
SourceCode: "theTable = av.GetActiveDoc\ntheVTab = theTable.GetVTab\nif (theVTab.IsBeingEditedWithRecovery.Not) then\n return nil\nend\n\n'first see if this is actually a Save on an edit theme\ntheTheme = theTable.GetEditor\n\nif (theTheme <> nil) then\n if (theTheme.Is(FTHEME)) then\n \n theView = theTheme.getView\n \n if (theView <> nil) then\n \n doSave = MsgBox.YesNoCancel(\"Save edits to \"+theTheme.GetName+\n \"?\",\"Save Edits\",true)\n if (doSave = nil) then\n return
nil\n end\n \n if (doSave.Not) then\n ' user changed her mind\n return (nil)\n end\n \n if (theTheme.StopEditing(TRUE).Not) then\n ' unable to save edits to theme\n MsgBox.Info(\"Unable to Save Edits, please use the Save Edits As option\", \"\")\n ' remain in the editing state \n return nil\n end \n \n 'begin editing again\n theView.SetEditableTheme(theTheme)\n return nil\n end\n end\nend \n\n\n'this is a save on t
he table\n\ndoSave = MsgBox.YesNoCancel(\"Save Edits to \"\n +theTable.GetName+\"?\", \"Save Edits\", True)\n \nif (doSave = nil) then\n return nil\nend\n\nif (doSave.Not) then\n' user changed her mind\n return nil\nend\n\nif (theVTab.StopEditingWithRecovery(TRUE).Not) then\n MsgBox.Info(\"Unable to Save Edits, please use the Save Edits As option\", \"\")\n ' remain in the editing state \n return nil \nend\n' restart editing\ntheVTab.StartEditingWithRecovery"
SourceCode: "theChart = av.GetActiveDoc\nif (theChart.IsChartScatter) then\n Self.SetEnabled( TRUE )\nelse\n if (SELF.IsSelected) then\n for each t in av.GetActiveGUI.GetToolbar.GetControls\n if (t.GetTag = \"Erase\") then\n t.Select\n end\n end\n end\n SELF.SetEnabled( FALSE )\nend\n"
SourceCode: "theView = av.GetActiveDoc\nif (theView.GetEditableTheme <> NIL) then\n SELF.SetEnabled(FALSE)\n return nil\nend\nfor each t in theView.GetVisibleThemes\n if ((t.IsActive) and (t.CanLabel)) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)"
SourceCode: "' View.Add\ntheView = av.GetActiveDoc\nsrcnames = SourceDialog.Show(\"\")\nzoom = (theView.GetThemes.Count = 0)\nuseDD=TRUE\nisOther=FALSE\n\ntheBox=Rect.makexy(-200,-100,200,100)\nthemeList={}\nif (srcnames.count = 0) then\n return(nil)\nend\n\nfor each n in srcnames\n theTheme=Theme.Make(n)\n theleg=thetheme.getlegend.clone\n if (TheBox.contains(theTheme.returnextent).NOT) then\n useDD=FALSE \n end\n if (theTheme.Is(FTheme).Not) then\n isOther=TRUE\n end\n theavlname=\" \"\n if (n.getfilename<>NIL) then\n if (n.
getfilename.getextension<>\"\") then\n theext=n.getfilename.asstring.right(4)\n theAVLname=n.getfilename.asstring.substitute(theext,\".avl\")\n else\n aFN=n.getfilename\n afn=aFN.asstring+\".avl\"\n theAVLname=afn\n end\n if ((theTheme.is(FTheme)) and (file.exists(theAVLname.asfilename))) then\n alinefile=textfile.make(theAVLname.asfilename,#FILE_PERM_READ)\n asource=alinefile.read(alinefile.getsize)\n alinefile.close\n if ((asource.contains(\"LegExt\").Not) or (Extension.F
ind(\"Spatial Analyst\")<>NIL))then\n theleg=theTheme.getlegend\n theleg.load(theAVLname.asfilename,#LEGEND_LOADTYPE_ALL)\n theflds=theleg.getfieldnames\n for each afld in theflds\n if (thetheme.getftab.findfield(afld)=NIL) then\n thetheme.getlegend.setlegendtype(#LEGEND_TYPE_SIMPLE)\n thetheme.getlegend.singlesymbol\n end\n end\n if ((theflds.count=0) and (theleg.getlegendtype <>#LEGEND_TYPE_SIMPLE)) then\n thetheme.getlegend.set
legendtype(#LEGEND_TYPE_SIMPLE)\n thetheme.getlegend.singlesymbol\n end\n \n end\n end \n end\n theView.AddTheme(theTheme)\nend\n\n\n' Test if it is OK to set the Map Units to DD and then also set DistanceUnits to Miles (feet for StreetMap)\n'\nif ((theView.getUnits = #UNITS_LINEAR_UNKNOWN) and (useDD=TRUE)) then\n theView.setUnits(#UNITS_LINEAR_DEGREES)\n theView.getDisplay.setDistanceUnits(#UNITS_LINEAR_MILES)\n theView.InvalidateTOC(theTheme)\nend\n\n' Test if the user added projected dat
a into a projected view\n'\nif ((theView.getProjection.isNull.NOT) and (useDD=FALSE)) then\n if (isOther.Not) then\n msgbox.warning(\"One or more of the data sources you have chosen is not\"++\n \"in decimal degrees. This data can't be projected to match this\"++\n \"view's projection. The theme(s) will be added but won't display properly.\",\n \"Warning: input theme(s) cannot be projected\")\n end\nend\n\nif ((theView.GetActiveThemes.Count = 0) and (srcnames.Count > 0)) then\n theView.GetThemes.Get(0).Set
Active(TRUE)\nend\n\nif (zoom) then\n theThemes = theView.GetThemes\n r = Rect.MakeEmpty\n for each t in theThemes\n r = r.UnionWith(t.ReturnExtent)\n end\n if (r.IsEmpty) then\n return nil\n elseif ((r.ReturnSize) = (0@0)) then\n theView.GetDisplay.PanTo(r.ReturnOrigin)\n else\n theView.GetDisplay.SetExtent(r.Scale(1.1))\n end\nend\n\nav.GetProject.SetModified( TRUE )\n\n\n\n\n\n\n\n\n\n"
SourceCode: "theProject = av.GetProject\n\nif (nil <> theProject) then\n if (theProject.IsModified) then\n if (av.Run(\"Project.CheckForEdits\",nil).Not) then\n return nil\n end \n res = MsgBox.SaveChanges(\"Do you want to save changes to \" \n + theProject.GetName + \"?\", \"ArcView\", true)\n if (nil = res) then return nil end\n if (res) then\n av.Run(\"Project.Save\", nil)\n if (theProject.IsModified)then return nil end\n end\n end\nend\n\ntheFName = FileDialog.Show(\"*.apr\", \"Proj
SourceCode: "argList = self\n\nif (argList.Count = 0) then\n new = Project.Make\n new.GetWin.Open\n new.SetModified(false)\n \n startfile = \"$HOME/avstart.txt\".AsFileName\n if (File.Exists(startfile).Not) then\n startupExt = Extension.Open(\"$AVHOME/tools/avstart.___\".AsFileName)\n if (startupExt <> nil) then\n startupExt.AddDefaultOwner\n av.FindDialog(\"StartUp\").Open\n end\n end \n \nelse\n fName = argList.Get(0).AsFileName\n old = Project.Open(fName)\n if (old = nil) then\n MsgBox.Warning(\"The project\"
++fName.GetBaseName++\"could not be opened\", \"\")\n new = Project.Make\n new.GetWin.Open\n new.SetModified(false)\n else\n old.SetModified(false)\n if (av.GetProject <> nil) then\n av.DelayedRun(\"Project.UpdateApr\",nil,1)\n end \n end\nend\n\n\ntoolDir = \"$AVHOME/tools/\".AsFileName\nif (File.Exists(toolDir)) then\n for each afile in toolDir.ReadFiles(\"*.avx\")\n theExt = Extension.Open(afile)\n if (theExt <> nil) then\n theExt.AddDefaultOwner\n end \n end\nend\n\nif (av.GetProject <> nil) t
SourceCode: "' Simplify graphics by converting complex graphic types into a set\n' of simple graphic shapes. For example a legend gets converted to\n' a set of points, lines, rectangles, and text.\nav.UseWaitCursor\nav.GetActiveDoc.GetGraphics.SimplifySelection"
)
(Script.80
Name: "View.PasteUpdate"
SourceCode: "SELF.SetEnabled(Clipboard.The.HasKindOf(Graphic) or Clipboard.The.HasKindOf(Theme))\n"
SourceCode: "l = {}\nfor each d in av.GetProject.GetDocs\n if (d.Is(Table)) then\n l.Add(d)\n end\nend\n\nif (l.Count > 1) then\n theTable = MsgBox.Choice(l,\"Pick a Table\",\"New Chart\")\nelse\n theTable = l.Get(0)\nend\n\nif (theTable = NIL) then\n return nil\nend\n\nnewChart = Chart.MakeUsingDialog(theTable.GetVTab, av.GetProject.GetSelectedGUI.GetName)\nif (newChart <> nil) then\n newChart.GetWin.Open\nend"
)
(Script.93
Name: "View.GeocodeUpdate"
SourceCode: "theProject = av.GetProject\n\ndocs = theProject.GetDocs\nif (docs.count = 0) then\n self.SetEnabled(false)\n return nil\nend\n\ntheView = av.GetActiveDoc\n\nfor each t in theView.GetThemes\n if ((t.Is(FTheme)) and (t.GetMatchSource <> NIL)) then\n self.SetEnabled(true)\n return nil\n end\nend\n \nself.SetEnabled(false)\n\n"
)
(Script.94
Name: "View.UndoEditUpdate"
SourceCode: "theView = av.GetActiveDoc\nenabled = False\ntheTheme = theView.GetEditableTheme\nif (theTheme <> nil) then\n if (SELF.GetControlSet.Is(Popup)) then\n SELF.SetLabel(\"Undo Feature Edit\")\n else\n SELF.SetLabel(\"&Undo Feature Edit\") \n end\n SELF.SetHelp(\"Undo the last edit to features in a theme\")\n SELF.SetHelpTopic(\"Undo_Feature_Edit_on_a_view\")\n if (theTheme.GetFTab.CanUndo) then\n enabled = True\n end\nelse \n if (SELF.GetControlSet.Is(Popup)) then\n SELF.SetLabel(\"Undo Graphic Edit\")\n else\n SELF
.SetLabel(\"&Undo Graphic Edit\")\n end \n SELF.SetHelp(\"Undo the last edit to graphics on a view\")\n SELF.SetHelpTopic(\"Undo_Graphic_Edit_on_a_view\")\n if (theView.GetGraphics.CanRestoreGraphic) then\n enabled = True\n end\nend\n\nself.SetEnabled(enabled)\n"
SourceCode: "theProject = av.GetProject\n\ndocs = theProject.GetDocs\nfor each d in docs\n if (d.Is(Table)) then\n self.SetEnabled(true)\n return nil\n end\nend\n\nself.SetEnabled(false)\n\n"
SourceCode: "for each b in av.GetProject.GetButtons\n b.Update\nend"
)
(Script.112
Name: "View.Locate"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if ((t.Is( FTHEME )) and (t.GetMatchSource <> NIL)) then\n p = LocateDialog.Show(t)\n if (p <> NIL) then\n if (p.IsNull) then\n MsgBox.Info(\"Cannot locate address.\", \"Locate\")\n else\n proj = theView.GetProjection\n pp = p.ReturnProjected(proj)\n g = GraphicShape.Make(pp)\n theView.GetGraphics.Add(g)\n ext = theView.GetDisplay.ReturnExtent\n if (not(pp.IsContainedIn(
SourceCode: "theView = av.GetActiveDoc\nif (theView.GetEditableTheme <> NIL) then\n SELF.SetEnabled(FALSE)\n return nil\nend\nif (theView.GetGraphics.HasSelected) then\n for each t in theView.GetActiveThemes\n if (t.CanSelect) then\n SELF.SetEnabled(TRUE)\n return nil\n end \n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "if (0 <= Printer.The.Edit({av.GetProject.GetSelectedGUI.GetTitle})) then\n av.UseWaitCursor\n System.RefreshWindows\n for each d in av.GetProject.GetSelectedDocs\n av.ShowMsg(\"Printing \"+d.GetName+\"...\")\n d.Print\n end\nend\n"
SourceCode: "v = av.GetActiveDoc\noc = v.GetOverlapLabelColor\nfor each t in v.GetActiveThemes\n if (t.IsVisible) then\n t.GetGraphics.ConvertOverlappingLabels(oc)\n t.GetGraphics.Invalidate \n end\nend\n"
SourceCode: "v = av.GetActiveDoc\nfor each t in v.GetVisibleThemes\n if (t.IsActive) then\n if (t.GetGraphics.HasLabels) then\n t.GetGraphics.SelectLabels\n t.GetGraphics.Invalidate\n end\n end\nend\nv.GetGraphics.ClearSelected"
)
(Script.142
Name: "Table.DeleteFieldUpdate"
SourceCode: "theTable = av.GetActiveDoc\ntheVTab = theTable.GetVTab\nSELF.SetEnabled(theVTab.IsEditable and theVTab.CanRemoveFields and (theTable.GetActiveField <> NIL) and (theTable.GetActiveField.IsEditable) and not (theTable.GetActiveField.IsTypeShape))"
SourceCode: "themes = av.GetActiveDoc.GetActiveThemes\nif (themes.count = 0) then\n self.SetEnabled( FALSE )\n return nil\nend\n'\n' there must be some active themes\n'\nfor each t in themes\n if (t.CanHotLink) then\n if ((t.GetHotField <> nil) and (t.GetHotScriptName <> \"\")) then\n self.SetEnabled( TRUE )\n return nil\n end\n end\nend\n\nSelf.SetEnabled( FALSE )\n"
)
(Script.156
Name: "View.ClearGraphicsUpdate"
SourceCode: "v = av.GetActiveDoc\nSelf.SetEnabled(false)\nfor each t in v.GetActiveThemes\n if (t.GetGraphics.Count > 0) then\n Self.SetEnabled(true)\n end\nend"
)
(Script.157
Name: "Layout.NorthArrow"
SourceCode: "theLayout = av.GetActiveDoc\nr = theLayout.ReturnUserRect\nif (r.IsNull.not) then\n gn = NorthArrow.Make(r)\n gn.SetDisplay(theLayout.GetDisplay)\n theLayout.GetGraphics.UnselectAll\n if (gn.Edit(theLayout.GetGraphics)) then\n gn.SetSelected(TRUE)\n theLayout.GetGraphics.AddName(gn)\n av.GetProject.SetModified(true)\n end\nend"
SourceCode: "\nscripts = av.GetProject.GetScripts\nscriptlist = scripts.ReturnKeys\nscriptlist.sort( true )\nscriptName = MsgBox.ListAsString( scriptlist, \"Select script\", \"UnEmbed\" )\nif (scriptName <> nil) then\n ' get the script\n theScript = scripts.Get(scriptName)\n newSEd = SEd.Make\n newSEd.SetName( scriptName )\n newSEd.SetSource( theScript.AsString )\n newSEd.GetWin.Open\n \n ' Remove it from the embedded script list\n scripts.Remove( scriptName )\nend"
)
(Script.172
Name: "Table.SaveEditsAs"
SourceCode: "theTable = av.GetActiveDoc\ntheVTab = theTable.GetVTab\n\nif (theVTab.IsBeingEditedWithRecovery.Not) then\n return nil\nend\n\n' first see if this is actually a SaveAs on an edit theme\n\ntheTheme = theTable.GetEditor\n\nif (theTheme <> nil) then\n\n if (theTheme.Is(FTHEME)) then\n \n def = av.GetProject.MakeFileName(\"theme\", \"shp\")\n def = FileDialog.Put(def, \"*.shp\", \"Save Edits For Theme \" + theTheme.getName)\n if (def = NIL) then return nil end\n v = theTheme.GetView\n if (v <> nil) then\n
\n newTheme = theTheme.SaveEditsAs(def)\n if ((newtheme = nil) or (newTheme.GetFTab.HasError)) then\n MsgBox.Info(\"Unable to Save Edits As \" + def.AsString + \n \", please use another file name\", \"\")\n return nil\n end\n v.SetEditableTheme(nil)\n v.AddTheme(newTheme)\n v.SetEditableTheme(newTheme)\n \n theTheme.SetVisible(False)\n newTheme.SetVisible(True)\n newTheme.EditTable\n \n return nil\n
end\n end\nend\n\n'this is a save as on the table\n \ntheClass = theVTab.GetBaseTableClass\n'theClass = DBASE\n\nif (theClass.IsSubClassOf(DBASE)) then \n theFilter = \"*.dbf\"\n theExt = \"dbf\"\nelseif (theClass.IsSubClassOf(DTXT)) then\n theFilter = \"*.txt\"\n theExt = \"txt\"\nelseif (theClass.IsSubClassOf(INFO)) then\n theFilter = \"arcdr9\"\n theExt = \"\"\nelse\n return nil\nend\n\ntheFileName=FileDialog.Put(av.GetProject.MakeFileName(\"table\", theExt),\n theFilter,\"Save Edits For Table\")\nif (theFileName
= NIL) then return nil end\n\n if (theFileName = theVTab.GetBaseTableFileName) then\n MsgBox.Info (\"Unable to Save Edits As \" \n + theFileName.AsString + \n \", please use another file name\", \"\")\n return nil\nend\n\n \nnewVTab = theVTab.SaveEditsAs(theFileName)\n\nif (newVTab.HasError) then\n MsgBox.Info (\"Unable to Save Edits As \" \n + theFileName.AsString + \n \", please use another file name\", \"\")\n return nil\nend\n\n'stop editing the original vtab, do not sa
SourceCode: "theView = av.getActiveDoc\nfor each t in theView.getActiveThemes\n s = t.getLegendEditorScript\n if (s.isnull.not) then\n av.run(s,t)\n end\nend"
Count\n if (gcount > 1) then\n dim2 = 0\n for each gra in theGraphics\n dim = gra.GetShape.GetDimension\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\n dim2 = dim2 + 1\n end\n end\n enabled = (gcount = dim2)\n end\nend\n\nSELF.SetEnabled(enabled)\n"
)
(Script.179
Name: "View.TabularThemesUpdate"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if (t.HasTable) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "theView = av.GetActiveDoc\nfound = false\np = theView.GetDisplay.ReturnUserPoint\nfor each t in theView.GetActiveThemes\n if ((t.HasAttributes) and (t.GetHotField <> nil)) then\n recs = t.FindByPoint(p)\n for each rec in recs\n theField = t.GetHotField\n found = true\n theVal = t.ReturnValueString(theField.GetName, rec)\n av.Run(t.GetHotScriptName,theVal)\n end\n end\nend\nif (not found) then\n System.Beep\nend"
t\n if (gcount = 2) then\n dim2 = 0\n for each gra in theGraphics\n dim = gra.GetShape.GetDimension\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\n dim2 = dim2 + 1\n end \n end\n enabled = (dim2 = 2) \n end\nend\n\nSELF.SetEnabled(enabled)"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n t.GetGraphics.SetVisible(true)\n t.GetGraphics.Invalidate\n t.GetGraphics.Empty\nend\nav.GetProject.SetModified(true)"
SourceCode: "'Refreshes the viewframe(s)\n\nthelayout = av.getactivedoc\n\ntheglist = thelayout.getgraphics.findallbyclass(viewframe)\n\n for each x in theglist\n x.setdisplay(thelayout.getdisplay)\n x.invalidate\n\n end\n\n\n"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if (t.CanSelect) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "'View.Layout\nt = TemplateMgr.Show\nif (t <> nil) then\n theView = av.GetActiveDoc\n \n '\n 'Build list of objects used to fill frames\n '\n docs = av.GetProject.GetDocs\n docs.Shuffle(theView, 0)\n objs = List.Make\n objs.Add(theView.GetName)\n objs.Merge(docs)\n\n '\n 'Check if any layouts exist. If so, give user choice of which layout to use.\n '\n layouts = List.Make\n for each d in docs\n if (d.Is(Layout)) then\n layouts.Add(d)\n end\n end\n if (layouts.Count = 0) then\n l = Layout.Make\n else\n
new = Layout.Make\n name = new.GetName\n new.SetName(\"<New Layout>\")\n layouts.Insert(new)\n l = MsgBox.List(layouts, \"Select a Layout\", \"View - Layout\")\n if (l = new) then\n l.SetName(name)\n else\n av.GetProject.RemoveDoc(new)\n end\n end\n \n \n '\n ' Format the layout with the selected template\n ' and fill with objs\n '\n if (l <> nil) then\n l.UseTemplate(t)\n l.GetGraphics.FillFrames(objs)\n l.GetWin.Open\n end\nend"
SourceCode: "theView = av.GetActiveDoc\nkey = MsgBox.Input(\"Search for:\", \"Find Text in Attributes\", theView.GetFindString)\nif (key <> nil) then\n av.UseWaitCursor\n if (theView.Find(key).not) then\n MsgBox.Warning(\"No more matches found.\",\"Find\")\n end\nend"
)
(Script.227
Name: "View.IdentifyUpdate"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if (t.CanFindByPoint) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "Self.SetEnabled(false)\nv = av.GetActiveDoc\nif (v.GetEditableTheme <> nil) then\n return nil\nend\nfor each t in v.GetVisibleThemes\n if (t.IsActive) then\n if (t.GetGraphics.HasLabels) then\n Self.SetEnabled(true)\n end\n end\nend"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetThemes\n if (t.SupportsAOI) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "' Writes a script to a text file if nothing is selected in a SEd;\n' otherwise writes the selected text to a text file.\n\ntheScript =av.GetActiveDoc \ntheFName = \n (theScript.GetName.Substitute(\" \", \"\").Translate(\".\", \"_\").Left(8)+\".ave\")\n .AsFileName\n\ntheFName = FileDialog.Put( theFName, \"*.ave\", \"Write Script\")\nif (nil = theFName) then\n return nil\nend\n\nf = LineFile.Make(theFName, #FILE_PERM_WRITE) \nif (f = nil) then \n msgbox.error(\"Cannot open file:\"++theFName.GetName, \"\") \n return nil\nend\nif (theScri
pt.GetSelected.Count = 0) then \n f.WriteElt(theScript.GetSource)\n av.ShowMsg( \"Script written to\"++theFName.GetFullName )\nelse\n f.WriteElt(theScript.GetSelected)\n av.ShowMsg( \"Selected text written to\"++theFName.GetFullName )\nend\n\nf.close\nif (System.GetOS = #SYSTEM_OS_MAC) then\n Script.Make(\"MacClass.SetDocInfo(SELF, SEd)\").DoIt(theFName)\nend\n"
)
(Script.251
Name: "Chart.PaintTool"
SourceCode: "theChart = av.GetActiveDoc\naColor = av.GetSymbolWin.ReturnCurrentSymbol(#SYMBOL_FILL).GetColor\np = theChart.GetUserPart\nif (p = Nil) then\n s = theChart.GetUserSeries\n if (s <> -1) then\n theChart.GetChartDisplay.SetSeriesColor(s, aColor)\n end\nelse\n p.SetColor(aColor)\nend\n"
SourceCode: "' North Arrows can be created and added to ArcView's\n' North Arrow Manager dialog box. You design and create your North arrows\n' on the Layout as a set of graphics and then select them. \n' you can execute this script to merge the new North arrow with the existing\n' arrows shown in the North Arrow Manager. \n'\n' Get all the selected graphics.\nl = av.GetActiveDoc.GetGraphics.GetSelected\n\n' Merge these into the North Arrow Manager dialog box.\nif (l <> nil) then\n NorthArrowMgr.Merge(l)\nend\n\n"
)
(Script.258
Name: "View.DeleteUpdate"
SourceCode: "theView = av.GetActiveDoc\ntheTheme = theView.GetEditableTheme\nif (theTheme = nil) then\n SELF.SetLabel(\"&Delete Graphics\")\n SELF.SetHelp(\"Removes the selected graphics from the view\")\n gCount = theView.GetGraphics.GetSelected.Count\nelse\n SELF.SetLabel(\"&Delete Features\")\n SELF.SetHelp(\"Removes the selected features from the view\")\n gCount = theTheme.GetFTab.GetSelection.Count\nend\n\nSELF.SetEnabled(gCount > 0)\n\n"
SourceCode: "theTable = av.GetActiveDoc\nSELF.SetEnabled(FALSE)\nfor each f in theTable.GetVTab.GetFields\n if ((f.IsVisible) and not (f.IsTypeShape)) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\n"
)
(Script.261
Name: "Project.New"
SourceCode: "theProject = av.GetProject\n\nif (nil <> theProject) then\n if (theProject.IsModified) then\n if (av.Run(\"Project.CheckForEdits\",nil).Not) then\n return nil\n end \n res = MsgBox.SaveChanges(\"Do you want to save changes to \" \n + theProject.GetName + \"?\", \"ArcView\", true)\n if (nil = res) then return nil end\n if (res) then\n av.Run(\"Project.Save\", nil)\n if (theProject.IsModified) then return nil end\n end\n end\n theProject.Close\nend\n\nav.DelayedRun(\"Projec
t.NewPart2\", nil, 0)\n"
)
(Script.262
Name: "Project.Close"
SourceCode: "theProject = av.GetProject\n\nif (nil <> theProject) then\n if (theProject.IsModified) then\n if (av.Run(\"Project.CheckForEdits\",nil).Not) then\n return nil\n end \n res = MsgBox.SaveChanges(\"Do you want to save changes to \" + theProject.GetName + \"?\", \"ArcView\", true)\n if (nil = res) then return nil end\n if (res) then\n av.Run(\"Project.Save\", nil)\n if (theProject.IsModified) then return nil end\n end\n end\n theProject.Close\n theProject = nil\nend\n"
SourceCode: "'Embeds the current script in the Project\n' and deletes the script editor\n'\ntheSEd = av.GetActiveDoc\nif (NOT (theSEd.IsCompiled)) then\n msgbox.error(\"Script is uncompiled:\"++theSEd.GetName, \"\")\n return nil\nend\n\n'See if script name has been modified\nSEdName = theSed.GetName\nif ((SEdName.Left(6)=\"Script\") and (SEdName.Right(sedName.Count-6).IsNumber)) then\n change = msgbox.yesno( \"Do you want to change the script name?\", \"Embed Script\", TRUE )\n if (change) then\n return nil\n end\nend\n \n'See if scrip
t is already on the script list\nif ( av.GetProject.GetScripts.Get(theSEd.GetName ) <> nil) then\n replace = msgbox.yesno( \"Do you want to overwrite\"++theSEd.GetName+\"?\",\n \"Embed Script\", TRUE)\n if (replace.Not) then \n return nil\n end\nend\n \n'Embed the script\ntheScript = theSEd.GetScript\nav.GetProject.AddScript( theScript )\n\n'Remove the script editor\nav.GetProject.RemoveDoc( theSEd )\n\n'Report success\nav.ShowMsg(\"Script embedded:\"++theScript.Ge
SourceCode: "' self is the name of the project to open\n\nav.PurgeObjects\nav.ProcessAllInvals\nProject.Open(self)\nav.Run(\"Codepage.Install\",nil)\n\ntheProj = av.GetProject\nif (theProj <> nil) then\n guiModified = av.Run(\"Project.UpdateApr\",nil)\n self.SetModified(guiModified)\nend \n\n"
)
(Script.279
Name: "View.ThemeProperties"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n t.EditProps\nend"
)
(Script.280
Name: "Chart.ToggleUpdateMenu"
SourceCode: "theChart = av.GetActiveDoc\nif (theChart.IsSeriesFromRecords) then\n SELF.SetLabel(\"&Series From Fields\")\nelse\n SELF.SetLabel(\"&Series From Records\")\nend\nSELF.SetEnabled((theChart.IsChartScatter.Not)) \n"
String++\"with\"++replaceString, \"Replace\")\n theScript.SetInsertPos( theScript.ReturnInsertPos )\n\nelseif (msgbox.miniyesno( \"start search at beginning of script?\", TRUE)) then\n oldPosition = theScript.ReturnInsertPos\n theScript.SetInsertPos(0)\n if (theScript.Search(findString).not) then\n msgbox.info( \"Could not find\"++findString, \"\")\n theScript.SetInsertPos( oldPosition )\n else\n theScript.Insert(replaceString)\n theScript.SetInsertPos( theScript.ReturnInsertPos )\n end\nelse\n msgbox.info( \"Co
uld not find\"++findString, \"\")\nend\n"
)
(Script.285
Name: "Project.CheckForEdits"
SourceCode: "'Before saving or closing the project check to see if there are any \n'Themes or Tables being edited. If so prompt for Save Edits\n'Want to stop editing on themes before tables just in case one of the \n'editable tables is the ftab for one of the editable themes.\n\nfor each d in av.GetProject.GetDocs\n if(d.Is(View)) then\n editThm = d.GetEditableTheme\n if (editThm <> nil) then\n doSave = MsgBox.YesNoCancel(\"Save Edits to \"+editThm.GetName+\n \" in \"+d.GetName+\"?\", \"Stop Editing\", true)\n if (do
Save = nil) then\n return false\n end\n if (editThm.StopEditing(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to \" \n + editThm.GetName +\n \", please use the Save Edits As option\",\"\")\n return false\n else \n d.SetEditableTheme(NIL)\n end \n end \n end \nend \n\nfor each d in av.GetProject.GetDocs\n if (d.Is(Table)) then\n if (d.GetVTab.IsBeingEditedWithrecovery) then\n doSave = MsgBox.YesNoCancel(\"Save Edits to
the table \"+\n d.GetName+\"?\", \"Stop Editing\", True)\n if (doSave = nil) then\n return false\n end\n if (d.GetVtab.StopEditingWithRecovery(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to Table \"\n + d.GetName +\n \", please use the Save Edits As option\", \"\")\n return false\n end\n end\n end\nend\nreturn true"
)
(Script.286
Name: "View.ClearSelect"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n t.ClearSelection\n end"
SourceCode: "theProject = av.GetProject\n\nif (nil <> theProject) then \n if (theProject.IsModified) then\n if (av.Run(\"Project.CheckForEdits\",nil).Not) then\n return nil\n end \n res = MsgBox.SaveChanges(\"Do you want to save changes to \" \n + theProject.GetName + \"?\", \"ArcView\", true)\n if (nil = res) then return nil end\n if (res) then\n av.Run(\"Project.Save\", nil)\n if (theProject.IsModified) then return nil end\n end\n end\ntheProject.Close\nend\n\nav.Quit"
SourceCode: "'View.Export\ntheView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n p = FALSE\n\n if (t.Is( FTHEME ).Not) then \n if (t.CanExportToFtab.Not) then continue end\n \n def = av.GetProject.MakeFileName(\"theme\", \"shp\")\n def = FileDialog.Put(def, \"*.shp\", \"Convert \" + t.getName)\n if (def = NIL) then return NIL end\n anFTab = t.ExportToFtab(def)\n \n ' For Database themes, which can return a nil FTab sometimes \n if (anFTab=nil) then\n MsgBox.Warning(\"Error occurred while converting
to shapefile.\"+NL+\n \"Shapefile was not created.\", \"Convert \" + t.getName)\n continue\n end \n\n shpfld = anFTab.FindField(\"Shape\")\n \n else\n \n tbl = t.GetFTab\n attribVis = FALSE\n for each f in tbl.GetFields\n if ((f.IsVisible) and not (f.IsTypeShape)) then\n attribVis = TRUE\n break\n end\n end\n shapeVis = tbl.FindField(\"Shape\").IsVisible\n if ((attribVis and shapeVis).Not) then\n continue\n end\n \n def = av.GetProject.MakeFileName(\"theme\",
\"shp\")\n def = FileDialog.Put(def, \"*.shp\", \"Convert \" + t.getName)\n \n if (def = NIL) then return nil end\n \n shpfld = (tbl.FindField(\"Shape\"))\n if (shpfld.IsVisible.Not) then\n shpfld.SetVisible(shpfld.IsVisible.Not)\n WasNotVisible = TRUE\n else\n WasNotVisible = FALSE\n end\n \n ' see if the view is projected\n thePrj = theView.GetProjection\n if (thePrj.IsNull.Not) then\n p = MsgBox.YesNoCancel(\"ArcView has detected that your view is projected.\"++\n \"Do
you want the new shapefile to be saved in the projected units?\",\n \"Convert\", FALSE)\n if (p = Nil) then return nil end\n end\n \n ' if the user wants to project the shape, use ExportProjected\n if (p) then\n anFTab = tbl.ExportProjected(def, thePrj, tbl.GetSelection.Count > 0)\n else\n anFTab = tbl.Export(def, Shape, tbl.GetSelection.Count > 0)\n end\n \n if (anFTab.HasError) then\n if (anFTab.HasLockError) then\n MsgBox.Error(\"Unable to acquire Write Lock for fi
le \" +\n def.GetBaseName,\"\")\n else\n MsgBox.Error(\"Unable to create \" + def.GetBaseName,\"\")\n end\n return nil\n end\n \n if (WasNotVisible) then\n shpfld.SetVisible(FALSE)\n end\n \n end\n\n ' build the spatial index\n anFTab.CreateIndex(shpfld)\n \n ' don't add the projected shapefile to the view -\n ' it won't show up if you do!\n if (p.Not) then\n if (MsgBox.YesNo(\"Add shapefile as theme to the view?\",\n \"Convert to Shapefile\",true).Not) then continue end\n \n
' create a theme and add it to the View\n fthm = FTheme.Make(anFTab)\n theView.AddTheme(fthm)\n else\n MsgBox.Info(\"Since your view is projected, the projected data\" ++\n \"will not be added to the view. It has been saved on disk.\", \"Convert\")\n end\n \n ' bring the View to the front\n theView.GetWin.Activate\nend\n"
SourceCode: "theView = av.GetActiveDoc \nfor each t in theView.GetActiveThemes\n if ((t.Is( FTheme )) and (t.GetMatchSource <> NIL)) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "theView = av.GetActiveDoc\n\nfor each t in theView.GetActiveThemes\n if ((t.Is( FTHEME )) and (t.GetFTab.IsGeocoded)) then\n editing = true\n refresh = false\n while (editing)\n editing = RematchDialog.Show(t)\n if (editing) then\n refresh = true\n end\n end\n if (refresh) then\n t.Invalidate(true)\n end\n return nil\n end\nend\n"
)
(Script.303
Name: "WindowMenuUpdate"
SourceCode: "\n' Get the open documents and their names\nnames = av.GetProject.GetName\ndoclist = { av.GetProject }\n\nfor each d in av.GetProject.GetDocs\n if (d.GetWin.IsOpen) then\n doclist.Add( d )\n names = names++d.GetName\n end\nend \n \n' Get last state and look for change\noldNames = self.GetObjectTag\nif (oldNames = nil) then\n oldNames = \"\" \nelseif (names = oldNames) then\n return nil ' bail out if no change\nend\n \n' save current state\nself.SetObjectTag( names )\n \n' set the default number format\nScript.The.Set
NumberFormat( \"d\" )\n\n' delete all of the menu items from the bottom to the separator\nctlset = self.GetControlSet\nl = ctlset.GetControls\nlast = l.get(l.count - 1)\n\nwhile (last <> self)\n ctlset.Remove(last)\n last = l.get(l.count- 1)\nend\n\n ' iterate through the open docs and add them back as menu items\ncount = 1\nfor each d in doclist\n n= ctlset.New(l.Count)\n n.setLabel(\"&\"+count.AsString++d.GetName)\n n.setClick(\"WindowActivate\")\n n.SetHelp(\"Activates\"++d.GetName)\n count=count+1\nend\n"
NumberFormat: 304
)
(AVStr.304
S: "d"
)
(Script.305
Name: "View.RemoveOverlapThemeLabels"
SourceCode: "v = av.GetActiveDoc\noc =v.GetOverLapLabelColor\nfor each t in v.GetVisibleThemes\n if (t.IsActive) then\n t.GetGraphics.SelectOverlappingLabels(oc) \n t.GetGraphics.Invalidate\nend\n \nend\nv.GetGraphics.ClearSelected"
SourceCode: "for each d in av.GetProject.GetSelectedDocs\n d.GetWin.Open\nend"
)
(Script.312
Name: "View.SelectPoint"
SourceCode: "theView = av.GetActiveDoc\nr = theView.ReturnUserRect\ntheThemes = theView.GetActiveThemes\nif (r.IsNull) then \n p = theView.GetDisplay.ReturnUserPoint\n if (System.IsShiftKeyDown) then\n op = #VTAB_SELTYPE_XOR\n else\n op = #VTAB_SELTYPE_NEW\n end\n for each t in theThemes\n if (t.CanSelect) then\n t.SelectByPoint(p, op)\n end\n end\nelse\n if (System.IsShiftKeyDown) then\n op = #VTAB_SELTYPE_OR\n else\n op = #VTAB_SELTYPE_NEW\n end\n for each t in theThemes\n if (t.CanSelect) then\n t.S
SourceCode: "theScript = av.GetActiveDoc\n\nfindString = theScript.GetSelected\nif (findString = \"\") then\n findString = msgbox.input( \"Enter find string\", \"Find\", \"\")\n if (findString = nil) then\n return nil\n end\nend\n\nfound = theScript.Search(findString)\nif (found.not) then\n if (msgbox.miniyesno( \"Start search at beginning of script?\", TRUE)) then\n oldPosition = theScript.ReturnInsertPos\n theScript.SetInsertPos(0)\n found = theScript.Search(findString) \n if (found.not) then\n msgbox.info( \"Could not fi
nd\"++findString, \"Find\")\n theScript.SetInsertPos( oldPosition )\n end\n end\nend\n\n' scroll to located item\nif (found) then\n theScript.SetInsertPos( theScript.ReturnInsertPos - findString.Count )\n theScript.Search(findString)\nend"
)
(Script.316
Name: "View.ToggleEditing"
SourceCode: "theView = av.GetActiveDoc\nactive = theView.GetActiveThemes.Get(0)\neditThm = theView.GetEditableTheme\n\nif (editThm <> nil) then\n' we need to stop editing this theme\n\n doSave = MsgBox.YesNoCancel(\"Save Edits to \"+editThm.GetName+\n \"?\", \"Stop Editing\", true)\n if (doSave = nil) then\n return nil\n end\n if (editThm.StopEditing(doSave).Not) then\n ' save failed, remain editing this theme\n MsgBox.Info (\"Unable to Save Edits to \"\n + editThm.GetName +\n \", please use the Sa
ve Edits As option\", \"\")\n return nil\n end\n ' save succeeded \n theView.SetEditableTheme(NIL)\n \n if (editThm = active) then\n ' user wanted to stop editing the active theme, were done\n return nil \n end \n \nend\n \nif (active.GetFTab.IsBeingEditedWithRecovery) then\n\n' user wants to edit the active theme in the view, but its\n' table doc is already being edited - force the \n' user to stop editing the table\n\n doSave = MsgBox.YesNoCancel(\"Save Edits to the table for \"+\n active.GetName+\"?\", \"Stop
Editing\", True)\n if (doSave = nil) then\n return nil\n end\n if (active.GetFTab.StopEditingWithRecovery(doSave).Not) then\n MsgBox.Info (\"Unable to Save Edits, please use the Save Edits As option\", \"\")\n return nil 'unable to save, remain editing\n end\nend\n\n' start editing the active theme\ntheView.SetEditableTheme(active)"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if (t.CanDeleteFromView) then\n SELF.SetEnabled(true)\n return nil\n end\nend\n\nSELF.SetEnabled(false) \n\n"
SourceCode: "theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n if (t.HasAttributes) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
SourceCode: "theView = av.GetActiveDoc\nselectfrom = {}\nselectonto = {}\nfor each t in theView.GetThemes\n if (t.CanSelect) then\n if (t.IsActive) then\n selectonto.Add(t)\n end\n selectfrom.Add(t)\n end\nend\nThemeOnThemeDialog.Show(selectonto, selectfrom, theView.GetDisplay.GetDistanceUnits)\nav.GetProject.SetModified(true)"
SourceCode: "SELF.SetLabel(\"&New\")\nSELF.SetHelpTopic(\"New_button\")\n\nSELF.SetEnabled(FALSE)\nfor each d in av.GetProject.GetDocs\n if (d.Is(Table)) then\n SELF.SetEnabled(TRUE)\n break\n end\nend\n"
)
(Script.335
Name: "Project.AddTable"
SourceCode: "patterns = {\"*.dbf\", \"arcdr9\", \"*.txt\"}\nlabels = {\"dBASE (*.dbf)\", \"INFO\", \"Delimited Text (*.txt)\"}\nfiles = FileDialog.ReturnFiles(patterns, labels, \"Add Table\", 0)\nfor each f in files\n v = VTab.Make(f, FALSE, FALSE)\n if (v.HasError) then\n if (v.HasLockError) then\n MsgBox.Error(\"Unable to acquire Read Lock for file \" + f.GetBaseName, \"\")\n else\n MsgBox.Error(\"The file '\" + f.GetBaseName + \"' is not valid.\", \"\")\n end\n else\n gui = av.GetProject.GetSelectedGUI\n if (gui.GetType <> \"T
able\") then\n GUIName = \"Table\"\n else\n GUIName = gui.GetName\n end \n t = Table.MakeWithGUI(v, GUIName)\n t.SetName(v.GetName)\n t.GetWin.Open\n end\nend "
count > 1) then\n dim2 = 0\n for each gra in theGraphics\n dim = gra.GetShape.GetDimension\n if ((dim = 2) and (gra.Is(GraphicText).not) and (gra.Is(GraphicGroup).not)) then\n dim2 = dim2 + 1\n end\n end\n enabled = (gcount = dim2)\n end\nend\n\nSELF.SetEnabled(enabled)\n"
SourceCode: "Self.SetEnabled(false)\nv = av.GetActiveDoc\nif (v.GetEditableTheme <> nil) then\n return nil\nend\noc = v.GetOverlapLabelColor\nfor each t in v.GetVisibleThemes\n if (t.IsActive) then\n if (t.GetGraphics.HasOverlappingLabels(oc)) then\n Self.SetEnabled(true)\n end\n end\nend"
)
(Script.356
Name: "View.ToggleGeneralSnapUpdate"
SourceCode: "theView = av.GetActiveDoc\nactive = theView.GetEditableTheme\nif (active <> nil) then\n if (active.IsSnapping) then\n SELF.SetLabel(\"Disable General Snapping\")\n SELF.SetHelp(\"Turns general snapping off\")\n else\n SELF.SetLabel(\"Enable General Snapping\")\n SELF.SetHelp(\"Turns general snapping on\")\n end\n SELF.SetVisible(TRUE)\n SELF.SetEnabled(TRUE)\nelse\n SELF.SetVisible(FALSE)\n SELF.SetEnabled(FALSE)\nend "
SourceCode: "theView = av.GetActiveDoc\nfound = FALSE\np = theView.GetDisplay.ReturnUserPoint\nfor each t in theView.GetActiveThemes\n if (t.CanFindByPoint) then\n thmClass = t.GetClass.GetClassName\n scriptName = thmClass+\".Identify\"\n if (av.FindScript(scriptName) <> nil) then\n found = av.run(scriptName, {p,t,found})\n else\n keys = t.FindByPoint(p)\n for each key in keys\n found = TRUE\n idlabel = t.GetName++\"-\"\n f = NIL\n if (t.CanLabel) then\n f = t.GetLabelField\n
end\n if (f = NIL) then\n if (key.Is(Number)) then\n idlabel = idlabel++key.SetFormat(\"d\").AsString\n else\n idlabel = idlabel++\" X :\"++key.GetX.AsString++\" Y :\"++key.GetY.AsString\n end\n else\n s = t.ReturnValueString(f.GetName, key)\n idlabel = idlabel++s\n end\n t.Identify(key, idlabel)\n end\n end \n end\nend\nif (not found) then\n System.Beep\nend\n\n"
)
(Script.364
Name: "View.EditMatchUpdate"
SourceCode: "theView = av.GetActiveDoc\n\nthemes = theView.GetActiveThemes\n\nif (themes.count = 0) then\n self.SetEnabled(false)\n return nil\nend\n\nfor each t in themes\n if ((t.Is( FTHEME)) and (t.GetFTab.IsGeocoded) and not(t.GetFTab.IsEditable)) then\n self.SetEnabled(true)\n return nil\n end\nend\n\nself.SetEnabled(false)\n"
)
(Script.365
Name: "Codepage.Install"
SourceCode: "' Add Code Page menu item \nif (av.GetCodePageConvert <> true) then\n return nil\nend\naProj = av.GetProject\nif (aProj = NIL) then\n return nil\nend\nProjDocGUI = aProj.GetGUIs\nfor each d in ProjDocGUI\n docMenuBar = d.GetMenuBar \n aMenu = docMenuBar.FindByLabel(\"File\")\n \n' add Code Page Profile choice to File menu\n if ((aMenu <> nil) and (aMenu.FindByLabel(\"Code Page Profile...\") = NIL)) then \n choicepos = 0\n for each c in aMenu\n if ((aMenu.GetControls.Get(choicepos).Is(Choice)) and (c.G
etLabel = \"E&xit\")) then\n break\n end\n choicepos = choicepos + 1\n end\n if (choicepos > 0 ) then\n choicepos = choicepos - 1\n end\n\n if (aMenu.GetControls.Get(choicepos).Is(Space)) then\n n = aMenu.New(choicepos)\n n.SetLabel(\"C&ode Page Profile...\")\n n.setclick(\"ShowCodepage\")\n n.SetHelp(\"Display the dialog box of the code page profile\")\n n.SetHelpTopic(\"Code_Page_Profile\")\n aMenu.Add(Space.Make,choicepos + 1)\n
else\n aMenu.Add(Space.Make,choicepos)\n n = aMenu.New(choicepos + 1)\n n.SetLabel(\"C&ode Page Profile...\")\n n.setclick(\"ShowCodepage\")\n n.SetHelp(\"Display the dialog box of the code page profile\")\n n.SetHelpTopic(\"Code_Page_Profile\")\n aMenu.Add(Space.Make,choicepos + 2) \n end\n end\n\n' Add Code Page choice to menu Table, Script and Project \n if (d.GetName = \"Table\") then\n aMenu = docMenuBar.FindByLabel(\"Table\")\n if (aMenu <
> NIL) then\n ccpg = aMenu.FindByLabel(\"Code Page...\")\n if (ccpg = NIL) then\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\n n = aMenu.New(aMenu.GetControls.Count)\n n.SetLabel(\"C&ode Page...\")\n n.SetHelp(\"Displays the code page of the active document\")\n n.SetHelpTopic(\"Code_Page\")\n n.SetClick(\"Doc.ShowCodepage\") \n end \n end\n end\n \n if (d.GetName = \"Script\") then\n aMenu = docMenuBar.FindByLabel(\"Script\")\n if (aMenu <> N
IL) then\n ccpg = aMenu.FindByLabel(\"Code Page...\")\n if (ccpg = NIL) then\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\n n = aMenu.New(aMenu.GetControls.Count)\n n.SetLabel(\"C&ode Page...\")\n n.SetHelp(\"Displays the code page of the active document\")\n n.SetHelpTopic(\"Code_Page\")\n n.SetClick(\"Doc.ShowCodepage\") \n end \n end\n end\n\n if (d.GetName = \"Project\") then\n aMenu = docMenuBar.FindByLabel(\"Project\")\n if (aMenu <> N
IL) then\n ccpg = aMenu.FindByLabel(\"Code Page...\")\n if (ccpg = NIL) then\n aMenu.Add(Space.Make,aMenu.GetControls.Count)\n n = aMenu.New(aMenu.GetControls.Count)\n n.SetLabel(\"C&ode Page...\")\n n.SetHelp(\"Displays the code page of the active document\")\n n.SetHelpTopic(\"Code_Page\")\n n.SetClick(\"Doc.ShowCodepage\") \n end \n end\n end\n\nend\n\n"
SourceCode: "theView = av.GetActiveDoc\neditThm = theView.GetEditableTheme\nif (editThm <> nil) then\n doSave = MsgBox.YesNoCancel(\"Save edits to \"+editThm.GetName+\n \"?\",\"Save Edits\",true)\n if (doSave = nil) then\n return nil\n end\n if (doSave.not) then\n ' user changed her mind\n return nil\n else\n ' save edits and stop editing\n if (editThm.StopEditing(TRUE).Not) then\n ' save failed, remain editing\n MsgBox.Info(\"Unable to Save Edits, please use the Save Edits As option\", \"\")\n return nil\n en
d \n ' restart editing\n theView.SetEditableTheme(editThm)\n end\nend \n\n\n"
)
(Script.370
Name: "View.UnionGraphics"
SourceCode: "theView = av.GetActiveDoc\ntheTheme = theView.GetEditableTheme\n\nif (theTheme <> nil) then\n theTheme.GetFTab.BeginTransaction\n theTheme.UnionSelected \n theTheme.GetFTab.EndTransaction \n theTheme.Invalidate(TRUE)\nelse\n theGraphics = theView.GetGraphics\n selGraphics = theGraphics.GetSelected\n numSel = selGraphics.Count\n x = numSel - 1\n gra1 = selGraphics.Get(0)\n shpUnionAll = gra1.GetShape\n theSym = gra1.GetSymbol\n theGraphics.RemoveGraphic(gra1)\n for each i in 1..x\n gra = selGraphics.Get(i)\n
SourceCode: "theDoc = av.GetActiveDoc\nSELF.SetEnabled((theDoc.GetGraphics.Count > 0) and (theDoc.GetEditableTheme = nil))"
)
(Script.381
Name: "Script.ToggleBreak"
SourceCode: "theScript = av.GetActiveDoc\nthePos = theScript.ReturnInsertPos\nif (theScript.BreakExists(thePos)) then\n res = theScript.ClearBreak(thePos)\nelse\n res = theScript.AddBreak(thePos)\nend\n"
)
(Script.382
Name: "View.ExportUpdate"
SourceCode: "theView = av.GetActiveDoc\nenabled = FALSE\nfor each t in theView.GetActiveThemes\n if (t.Is(FTheme)) then \n tbl = t.GetFTab\n attribVis = FALSE\n for each f in tbl.GetFields\n if ((f.IsVisible) and not (f.IsTypeShape)) then\n attribVis = TRUE\n break\n end\n end\n shapeVis = tbl.FindField(\"Shape\").IsVisible\n enabled = enabled or (attribVis and shapeVis)\n elseif (t.CanExportToFtab) then\n enabled = True\n end\nend\nSELF.SetEnabled(enabled)"
SourceCode: "'\n' run scripts contained in selected\n' script documents\n'\nfor each d in av.GetProject.GetSelectedDocs\n d.Run( nil )\nend\n"
)
(Script.387
Name: "Graphic.UngroupUpdate"
SourceCode: "theDoc = av.GetActiveDoc\nenabled = false\nl = theDoc.GetGraphics.FindAllByClass(GGroup)\nif (l <> nil) then\n for each g in l \n if (g.IsSelected) then\n enabled = true\n break\n end\n end\nend\nSELF.SetEnabled(enabled) \n"
)
(Script.388
Name: "View.DeleteThemes"
SourceCode: "theView = av.GetActiveDoc\neditThm = theView.GetEditableTheme\nthmList = {}\nfor each t in theView.GetActiveThemes\n if (t.CanDeleteFromView) then\n if (t = editThm) then\n doSave = MsgBox.YesNoCancel(\"Save edits to \"+editThm.GetName+\"?\",\n \"Stop Editing\",true)\n if (doSave = nil) then\n return nil\n end\n if (editThm.StopEditing(doSave).Not) then\n MsgBox.Info(\"Unable to Save Edits to \" \n + editThm.GetName +\n \", please use the Save Edits As
option\",\"\")\n return nil\n else \n theView.SetEditableTheme(NIL)\n end \n end \n thmList.Add(t)\n end\nend\n\nthmList2 = thmlist.clone\nfor each t in thmList\n doDelete = MsgBox.AllYesNo(\"Are you sure you want to delete theme \" + \n t.asString + \"?\", \"Delete Themes\", true)\n if (doDelete = nil) then \n break\n elseif (doDelete) then\n theView.DeleteTheme(t)\n thmList2.RemoveObj(t)\n else\n thmList2.RemoveObj(t)\n end\nend\n\nfor each t in thmList2\n theView.DeleteTheme(t)\nen
SourceCode: "theVal = SELF\nif (not (theVal.IsNull)) then\n if (TextWin.Make(theVal.AsFileName, theVal) = Nil) then\n MsgBox.Warning(\"File \"+theVal+\" not found.\",\"Hot Link\")\n end\nend\n"
)
(Script.390
Name: "Project.UpdateApr"
SourceCode: "' This script Adds the GUI elements new at ArcView 3.1 to\n' an existing 3.x APR. This is useful when your APR may have a \n' customized GUI developed prior to ArcView 3.1 and you now \n' want the new tools to be available in your interface.\n\ntheProject = av.GetProject\naver = theProject.GetODBversion\ntheModGUI = theProject.GetODBGUInames\n\nif (aver = 30) then\n if (theModGUI.Count = 0) then\n return FALSE\n end\nelse\n return FALSE\nend\n\n\ntheGUI = Msgbox.YesNo(\"ArcView has detected that this project was created
with an older version of ArcView \"\n +\"and contains customized GUIs. Do you want the new ArcView 3.1 tools added to this project?\",\"Update \"+theproject.GetName,TRUE)\nif (theGUI = FALSE) then\n return FALSE\nend\n\ntheViewGUI = av.GetSysDefault.FindGUI(\"View\")\ntheTableGUI = av.GetSysDefault.FindGUI(\"Table\")\ntheChartGUI = av.GetSysDefault.FindGUI(\"Chart\")\ntheLayoutGUI = av.GetSysDefault.FindGUI(\"Layout\")\ntheScriptGUI = av.GetSysDefault.FindGUI(\"Script\")\n\nif (theViewGUI <> NIL) then\n 'â•– Core M
SourceCode: "' Removes any fields joined to the current table \n theVTab = av.GetActiveDoc.GetVtab\nif (theVTab.IsBase.Not) then\n av.GetProject.SetModified(true)\nend\ntheVTab.UnjoinAll\n"
SourceCode: "theTable = av.GetActiveDoc\ntheField = theTable.getActiveField\nif (MsgBox.YesNo(\"Are you sure you want to delete the field \"+\n theField.GetAlias.AsString + \"?\",\"Delete Field\",true)) then\n theTable.StopEditing\n theTable.GetVTab.RemoveFields({theField})\nend"
SourceCode: "'Window Menu selection that activates an open document\n\n'entries in the Window menu can look like this: &1 View of the World\n\n'get the menu item label\nmenulabel = self.GetLabel\n\n'find where the document name starts\noff = menulabel.Extract(0).Count + 1\n\n'get the document name out of the item label\ndocname=menulabel.Middle(off,menulabel.Count - off)\n\n'find the document in the project\ntheDoc = av.GetProject.FindDoc(docname)\n\n'bring the doc to the front\nif (theDoc = nil) then\n av.GetProject.GetWin.Open\nelseif
